home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
jmstring.zip
/
JMDEMO.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-01-04
|
1KB
|
53 lines
program jmdemo ;
uses crt, jmstring ;
var
ch : char ;
s : string;
procedure pause ;
begin
writeln ;
writeln ;
writeln ;
writeln ('Press any key to continue...') ;
ch := readKey ;
clrscr ;
writeln ('JMDEMO - A demonstration of the JMString unit.') ;
end ;
begin
clrscr ;
writeln ('JMDEMO - A demonstration of the JMString unit.') ;
pause ;
writeln ;
s := ' for i := 1 to 100 do begin' ;
write ('The string : ');
writeln (s) ;
writeln ;
writeln ('"compacts" to : ',compact(s)) ;
pause ;
writeln ;
writeln ;
write ('The same string "toUppers" to : ') ;
writeln (toUpper(s)) ;
pause ;
s := 'HELLO WORLD' ;
writeln ;
writeln ;
write ('The string : ') ;
writeln (s) ;
writeln ('"toLowers" to : ',toLower(s)) ;
pause ;
writeln ;
writeln ;
write ('The string ',s,' ') ;
write ('is') ;
if isType(s,numerics) then write (' ')
else write (' not ') ;
writeln ('numerical data.') ;
pause ;
writeln;
writeln ;
end.